home *** CD-ROM | disk | FTP | other *** search
/ Duke Screw'em 38D / Duke Screw'em 38D.iso / pc / vvdemo.dir / 00619_Script_619 < prev    next >
Text File  |  1996-06-29  |  2KB  |  41 lines
  1. on exitFrame
  2.   global Copies1, SUBTOTAL1, TAX1, TOTAL1, NJ1, shipping1, DOB
  3.   If the text of cast 470 = 1 then set Subtotal1 = 1 * "48.99"
  4.   If the text of cast 470 = 2 then set Subtotal1 = 2 * "48.99"
  5.   If the text of cast 470 = 3 then set Subtotal1 = 3 * "48.99"
  6.   If the text of cast 470 = 4 then set Subtotal1 = 4 * "48.99"
  7.   If the text of cast 470 = 5 then set Subtotal1 = 5 * "48.99"
  8.   If the text of cast 470 = 6 then set Subtotal1 = 6 * "48.99"
  9.   If the text of cast 470 = 7 then set Subtotal1 = 7 * "48.99"
  10.   If the text of cast 470 = 8 then set Subtotal1 = 8 * "48.99"
  11.   If the text of cast 470 = 9 then set Subtotal1 = 9 * "48.99"
  12.   If the text of cast 470 = 10 then set Subtotal1 =10 * "48.99"
  13.   If the text of cast 470 = 11 then set Subtotal1 =11 * "48.99"
  14.   If the text of cast 470 = 12 then set Subtotal1 =12 * "48.99"
  15.   If the text of cast 470 = 13 then set Subtotal1 =13 * "48.99"
  16.   If the text of cast 470 = 14 then set Subtotal1 =14 * "48.99"
  17.   If the text of cast 470 = 15 then set Subtotal1 =15 * "48.99"
  18.   If the text of cast 470 = 16 then set Subtotal1 =16 * "48.99"
  19.   If the text of cast 470 = 17 then set Subtotal1 =17 * "48.99"
  20.   If the text of cast 470 = 18 then set Subtotal1 =18 * "48.99"
  21.   If the text of cast 470 = 19 then set Subtotal1 =19 * "48.99"
  22.   If the text of cast 470 = 20 then set Subtotal1 =20 * "48.99"
  23.   If the text of cast 470 = 21 then set Subtotal1 =21 * "48.99"
  24.   If the text of cast 470 = 22 then set Subtotal1 =22 * "48.99"
  25.   If the text of cast 470 = 23 then set Subtotal1 =23 * "48.99"
  26.   If the text of cast 470 = 24 then set Subtotal1 =24 * "48.99"
  27.   If the text of cast 470 = 25 then set Subtotal1 =25 * "48.99"
  28.   If the text of cast 470 = 10 then set Subtotal1 =10 * "48.99"
  29.   put subtotal1 into field "subtotal"
  30.   IF the text of cast 467 = "NJ" then set Tax1 = (subtotal1 * .06)
  31.   else IF the text of cast 467 = "N.J." then set Tax1 = (subtotal1 * .06)
  32.   else IF the text of cast 467 = "N J" then set Tax1 = (subtotal1 * .06)
  33.   else IF the text of cast 467 = "New Jersey" then set Tax1 = (subtotal1 * .06)
  34.   else set tax1 = tax1 + 0
  35.   IF the text of cast 474 = "5.00" then set shipping1 = "5.00"
  36.   IF the text of cast 474 = "5.00" then set shipping1 = "5.00"
  37.   put tax1 into field "tax"
  38.   If the Text of cast 486 > 79 then go to "dob"
  39.   GO TO THE FRAME
  40. end
  41.